Option Explicit
'ۭqҲ
Private Sub TextBox1_MouseMove(ByVal Button As Integer, _
                               ByVal Shift As Integer, _
                               ByVal X As Single, _
                               ByVal Y As Single)
    Dim mystr As String
    mystr = "bTextBox1"
    Select Case Shift
        Case 0
        Case 1: mystr = mystr & "Shift +"
        Case 2: mystr = mystr & "Ctrl +"
        Case 4: mystr = mystr & "Alt +"
    End Select
    Select Case Button
        Case xlNoButton: 'mystr = mystr & ""
        Case xlPrimaryButton: mystr = mystr & "Ĥ@Q"
        Case xlSecondaryButton: mystr = mystr & "ĤGQ"
    End Select
    mystr = mystr & "ƹQʤFC" & vbCrLf
    mystr = mystr & "ƹЪyЬX:=" & X & "Y:=" & Y & "C"
    MsgBox mystr
End Sub
